a := 1; 
b := 1;
c := 0;
i := 10;
while i do 
    c := a + b;
	a := b;
	b := c;
	i := i - 1 
od 
